home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / ladybug.arc / HELP.BUG < prev    next >
Encoding:
Text File  |  1984-03-27  |  643 b   |  26 lines
  1. to help
  2. ct
  3. print "'Press      For a description of'
  4. print "'  1        Graphics commands  '
  5. print "'  2        Sound making commands'
  6. print "'  3        Input and Output
  7. print "'  4        Control commands'
  8. print "'  5        Workspace commands'
  9. print "'  6        Running Procedures'
  10. print "'  7        Expressions and functions'
  11. print "'  8        Tools in workspaces
  12. print "'  0        To exit from HELP
  13. print "' '
  14. type "'Press a key '
  15. local "key
  16. make "key rc
  17. if not number? :key    [erase "help  stop]
  18. if :key < 1  [if :key > 8  [erase "help  stop] ]
  19. make "key word "help :key
  20. load :key
  21. help
  22. print "' '
  23. end
  24.  
  25. help
  26.